home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / adatutor / lrmrdr / sysdep.a < prev    next >
Text File  |  1996-01-30  |  5KB  |  97 lines
  1. package SYSDEP is
  2. -- System Dependencies Package
  3.  
  4.    LRM_Files_Directory     : constant STRING :=
  5.    --  "/ada2_home/local/reader/ada_lrm/";    -- GE
  6.    --  "/usr/local/swengrg/reader/ada_lrm/";  -- UC
  7.     "c:\reader\ada_lrm\";  -- PC
  8.      -- name of the directory containing the LRM DAF files "chapxx.daf";
  9.      -- be sure to follow this directory name with a separator so the
  10.      -- file name may be appended to it
  11.  
  12.    Program_Name            : constant STRING :=
  13.      "Ada LRM Reader 2.0";
  14.    -- this will appear on the prompt line
  15.  
  16.    Print_File_Name         : constant STRING :=
  17.      "lrm.log";
  18.      -- this will be created in the user's local directory
  19.  
  20.    Citation_Stack_Depth    : constant := 20; -- citations
  21.      -- maximum number of citations which may be PUSHed;
  22.      -- you should not have to change this
  23.  
  24.  -- These values are set for a VT100 terminal and should not have to be
  25.  -- changed
  26.    Screen_Width            : constant := 75; -- chars
  27.     -- maximum number of characters that can be displayed on a line
  28.     -- without wrap; this is set to allow right and left margins and
  29.     -- markers you should not have to change this
  30.  
  31.    Text_Line_Count           : constant := 22; -- lines
  32.    Command_Line_Number       : constant := 23; -- line number
  33.    Error_Message_Line_Number : constant := 24; -- line number
  34.    Screen_String_Length      : constant := 78; -- characters
  35.    Search_Pointer_Column     : constant := 79; -- column number
  36.     -- Line count, line numbers, and column numbers for VT100 display
  37.     -- you should not have to change this
  38.  
  39.  -- These values are picked up from an examination of the text files
  40.  -- of the Ada LRM; they represent a slight increase over the values
  41.  -- actually determined from the examination in order to allow for
  42.  -- a minor growth.
  43.  
  44.    Max_String_Length       : constant := 110; -- chars
  45.      -- for command line and file line input;
  46.      -- you should not have to change this
  47.  
  48.    Max_Number_of_Citations : constant := 40; -- citations per file
  49.      -- based on number of citations in each file;
  50.      -- you should not have to change this
  51.  
  52.    Total_Number_of_Citations : constant := 230; -- citations in all files
  53.      -- based on a count of the citations in all files;
  54.      -- you should not have to change this
  55.  
  56.    Max_Number_of_Screens   : constant := 6000/(Text_Line_Count) + 1;
  57.      -- based on number of lines in largest file (chapin.doc);
  58.      -- you should not have to change this
  59.  
  60.  -- These lines consistute the copyright message displayed by this program
  61.  -- on startup.  Do not modify them.  These lines also serve as the
  62.  -- copyright notice for this file.
  63.    subtype COPYRIGHT_STRING is STRING (1..60);
  64.    type COPYRIGHT_NOTICE is array (NATURAL range <>) of COPYRIGHT_STRING;
  65.    Full_Copyright_Notice : constant COPYRIGHT_NOTICE := (
  66.   -- "         1         2         3         4         5         6"
  67.   -- "123456789012345678901234567890123456789012345678901234567890"
  68.      "Ada LRM Reader - Interactive Presentation of the Ada LRM    ",
  69.      "Copyright (C) 1992    Richard Conn                          ",
  70.      "                                                            ",
  71.      "This program is free software; you can redistribute it      ",
  72.      "and/or modify it under the terms of the GNU General Public  ",
  73.      "License Version 1 as published by the Free Software         ",
  74.      "Foundation.                                                 ",
  75.      "                                                            ",
  76.      "This program is distributed in the hope that it will be     ",
  77.      "useful, but WITHOUT ANY WARRANTY; without even the implied  ",
  78.      "warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR     ",
  79.      "PURPOSE.  See the GNU General Public License for more       ",
  80.      "details.  You should have received a copy of the GNU General",
  81.      "Public License along with this program; if not, write to the",
  82.      "Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA ",
  83.      "02139, USA.  See the ABOUT screens for further information, ",
  84.      "including information on how to contact the author.         ");
  85.  
  86.    Intro_Copyright_Notice : constant COPYRIGHT_NOTICE := (
  87.      "Ada LRM Reader - Interactive Presentation of the Ada LRM    ",
  88.      "Copyright (C) 1992    Richard Conn                          ",
  89.      "                                                            ",
  90.      "The Ada LRM Reader comes with ABSOLUTELY NO WARRANTY. This  ",
  91.      "program is free software, and you are welcome to distribute ",
  92.      "it under certain conditions.  Type the ABOUT command when in",
  93.      "the program or read the file 0LICENSE.GNU for details.      ",
  94.      "                                                            ");
  95.  
  96. end SYSDEP;
  97.